home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / C_Automp / AUTOTP / IMD.CST / 00007.ls < prev    next >
Encoding:
Text File  |  1996-07-16  |  229 b   |  12 lines
  1. on caps theKey
  2.   set keyNum = charToNum(theKey)
  3.   if alpha(theKey) then
  4.     if keyNum > 96 and keyNum < 123 then
  5.       return (numToChar(keyNum - 32))
  6.     else
  7.       return theKey
  8.     end if
  9.   else
  10.     return theKey
  11.   end if
  12. end